home *** CD-ROM | disk | FTP | other *** search
/ Directorty Opus 5 - Magellan / Opus 5 - Magellan.iso / Extras / NewUnDMS_3.1 / Install next >
Text File  |  1997-06-05  |  3KB  |  100 lines
  1. ; $VER: UnDMS.install 1.0 (05.06.97)
  2.  
  3. (set @default-dest "DOpus5:")
  4. (set @language "english")
  5.  
  6. (complete 0)
  7.  
  8. (set exec-version (/ (getversion) 65536))
  9. (if (< exec-version 38)
  10.  (abort "This program needs at least OS 2.1.\n")
  11. )
  12.  
  13. (message (cat "\nNew UnDMS for Directory Opus Magellan:\n\n"
  14.               "written by\n"
  15.               "Edmund Vermeulen <edmundv@grafix.xs4all.nl>\n"
  16.               "and\n"
  17.               "Frédéric Steinfels <fsteinfe@iiic.ethz.ch\n\n"
  18.               "This program is FreeWare.\n"
  19.          )
  20. )
  21.  
  22. (complete 6)
  23.  
  24. (set #updatefile "Update file")
  25. (set #noupdatefile "Do not update file")
  26.  
  27. (procedure Updatefile
  28.  
  29. (set #dest (askdir (prompt (cat "Where is or where do you want to have " #file " installed?"))
  30.              (help "Select the drawer where you want to install this file. Please use the given/default path.")
  31.                   (default (cat #dest))
  32.          )
  33. )
  34.  
  35. (set vernum1 (getversion (tackon #dest #file)) )
  36. (set ver1 (/ vernum1 65536))
  37. (set rev1 (- vernum1 (* ver1 65536) ) )
  38.  
  39.  
  40. (set vernum2 (getversion (tackon #source #file)) )
  41. (set ver2 (/ vernum2 65536))
  42. (set rev2 (- vernum2 (* ver2 65536) ) )
  43.  
  44.  
  45. (set #text  (cat "'" #file "'\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  46.                   "Version Currently Installed   : " ver1 "." rev1 "\n\n"
  47.                   "Version in this Archive/Update: " ver2 "." rev2 "\n\n"
  48.                   "Do you wish to install Version " ver2 "." rev2 " of "
  49.                   "'" #file "' from the Archive/Update?"
  50.              )
  51. )
  52.  
  53.  
  54. (set pick (askchoice (choices #updatefile #noupdatefile) (prompt #text)    (help #text) (default pick)))
  55.  
  56. (if (= pick 0) (copyfiles (source (tackon #source #file )) (dest #dest))))
  57.  
  58. ;end Procedure
  59.  
  60. (set #file "UnDMS.dopus5")                    (set #source "ARexx")   (set #dest "DOpus5:ARexx")                 (Updatefile)
  61. (complete 12)
  62.  
  63. (set #file "DosInfo")                         (set #source "C")       (set #dest "DOpus5:C")                     (Updatefile)
  64. (complete 25)
  65.  
  66. (set #file "rexxdossupport.library")          (set #source "libs")    (set #dest "Libs:")                        (Updatefile)
  67. (complete 37)
  68.  
  69. (set #file "rexxtricks.library")              (set #source "libs")    (set #dest "Libs:")                        (Updatefile)
  70. (complete 50)
  71.  
  72. (set #file "DiskMasher archive")              (set #source "FileTypes")  (set #dest "DOpus5:FileTypes")          (Updatefile)
  73. (complete 62)
  74.  
  75. (set #file "DiskMasher archive.info")         (set #source "FileTypes")  (set #dest "DOpus5:FileTypes")          (Updatefile)
  76. (complete 75)
  77.  
  78.  
  79. (message (cat "\nInstallation complete\n\n"
  80.               "Please read the following documentation!\n"
  81.          (all))
  82. )
  83. (complete 87)
  84.  
  85.  
  86. (if (< exec-version 39)
  87.  (
  88.      (run "SYS:Utilities/More UnDMS.doc")
  89.  )
  90.  (
  91.      (run "SYS:Utilities/Multiview UnDMS.doc")
  92.  )
  93. )
  94.  
  95.  
  96. (complete 100)
  97.  
  98.  
  99. (exit (quiet))
  100.